home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 October / Macformat17.cdr / Shareware City / HyperCard / hyper-extras-hc / HyperExtras / HyperExtras.rsrc / TEXT_3018_createFld.txt < prev    next >
Encoding:
Text File  |  1994-07-11  |  1.3 KB  |  32 lines
  1.  doMenu "New Field"
  2.   put line 1 of info into newName
  3.   put tempFldnNameSC into tname
  4.   put number of card fields into num
  5.   set name of cd field num to tname
  6.   set rect of cd field tname to line 2 of info
  7. put (item 1 of line 2 of info)&","&(item 2 of line 2 of info) into locB
  8.   if locB > botright of cd then
  9.     set loc of cd field tname to "50,50"
  10.   end if
  11.   set style of cd field tname to line 3 of info
  12.   set showLines of cd field tname to line 4 of info
  13.   set widemargins of cd field tname to line 5 of info
  14.   set autoTab of cd field tname to line 6 of info
  15.   set dontSearch of cd field tname to line 7 of info
  16.   set dontWrap of cd field tname to line 8 of info
  17.   set fixedLineHeight of cd field tname to line 9 of info
  18.   set locktext of cd fld tname to line 10 of info
  19.   set textFont of cd field tname to line 11 of info
  20.   set textSize of cd field tname to line 12 of info
  21.   set textAlign of cd field tname to line 13 of info
  22.   set textStyle of cd field tname to line 14 of info
  23.   put line 15 of info into scriptLength
  24.   
  25.   put number of lines in info into y
  26.   if line 16 of info is not "emptySC" then
  27.     put line 16 to scriptLength+15 of info into scinfo
  28.     set script of cd field tname to scinfo
  29.   end if
  30.   put line (scriptLength+16) to y of info into x
  31.   put x into cd fld tname
  32.   set name of cd field tname to newName